﻿Namespace Database

    Public Class SOCIEDAD
        Inherits Conexion
        Public Shared Function GET_00(ByRef rp As DotNetResponse.SQLPersistence, Optional ByRef Conex As DotNetDal.SQLPersistence = Nothing) As DataTable
            Dim comited As Boolean = Conectar(Conex)
            rp.StoredProcedure = "SP_GOP_GET_SOCIEDADES_00"
            Conex.ExecuteDataTable(rp)
            If comited Then
                Conex.Commit()
                Conex.Dispose()
            End If
            If rp.TieneDatos Then
                Return rp.DtTable
            End If
            Return Nothing            
        End Function
    End Class

End Namespace